TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/A-Monthly Disks/(c)aal.d64/credit anal.

Commodore BASIC | 2007-02-04 | 6KB | 187 lines

0 :
1 REM10000 INST.
2 REM 9000 MENU
5 POKE54296,15:S1=54276:S2=54277:S3=54278
6 BD=53280:BG=BD+1:REM BORDER/ BACKGROUND
9 POKEBD,5:POKEBG,1:
10 PRINT"[147]"
100 PRINT"[147][144]"
110 X=160:Y=54272:Z=7:GOSUB206:A=10:PRINTTAB(A)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
111 [153][163]A)"(null)                  (null)"
112 [153][163]A)"(null)  STOPCREDIT ANALYSIS (null)"
113 [153][163]A)"(null) BY OPENTWO MITES ENT.(null)"
114 [153][163]A)"(null)     OPENBOX 249      (null)"
115 [153][163]A)"(null) IROQUOIS FALLS,  (null)"
116 [153][163]A)"(null)    ONTARIO       (null)"
117 [153][163]A)"(null)      SYSCANADAWAIT      (null)"
118 [153][163]A)"(null) AUGUST   21 1984 (null)"
119 [153][163]A)"(null)                  (null)"
120 [153][163]A)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPSTOP"
123 [153]"";:[151]214,14:[153]:[153][163]4)"PUSH THE F7CLR KEY":[153][163]6)"TO CONT.
126 PRINT""TAB(4)"[144]PUSH THE F3[156] KEY":PRINTTAB(3)"FOR INSTRUCTIONS
130 :
149 [141]9050
175 [137]1000
200 [143]**THE**
202 [143]**BORDER**
204 [153]"LOAD";
206 [129]G[178]1024[164]1063:[151]G,X:[151]G[170]Y,Z:[130]G
208 [129]G[178]1063[164]1983[169]40:[151]G,X:[151]G[170]Y,Z:[130]G
210 [129]G[178]2023[164]1984[169][171]1:[151]G,X:[151]G[170]Y,Z:[130]G
212 [129]G[178]1984[164]1024[169][171]40:[151]G,X:[151]G[170]Y,Z:[130]G
214 [142]
999 [128]
1000 [153]"LOADENTER YOUR AGE:":[153]:MAX[178]16
1003 [133]A
1005 [139]A[179]21[167][153]"  ****  AGE UNACCEPTABLE ! ":[141]45000:[137]0
1007 [139]A[179]25[167]TT[178]7:[137]1020
1008 [139]A[179]30[167]TT[178]14:[137]1020
1009 [139]A[179]35[167]TT[178]10:[137]1020
1010 [139]A[179]50[167]TT[178]16:[137]1020
1020 :
1030 [153]"YOU RECEIVE "TT" POINTS
1050 PRINT:INPUT"YEARS AT CURRENT ADDRESS";A:MAX=MAX+35
1060 IFA>10THENTT=TT+35:GOTO1090
1062 IFA> 5THENTT=TT+25:GOTO1090
1064 IFA> 3THENTT=TT+12:GOTO1090
1066 IFA> 2THENTT=TT+11:GOTO1090
1068 IFA> 1THENTT=TT+ 0:GOTO1090
1069 IFA< 1THENTT=TT-10:GOTO1090
1090 PRINT:PRINT"YOU NOW HAVE "TT"PTS"
1100 PRINT:PRINT"ENTER 1[146] IF YOU OWN YOUR HOME":MAX=MAX+25
1103 PRINT"      2 IF YOU RENT
1106 [153]"      3 IF OTHER (I.E.,LIVE AT PARENTS)
1110 INPUTA
1111 IF A=1 THEN TT= TT+25
1113 IF A=2 THEN TT= TT-25
1120 PRINT:INPUT"YEARS AT CURRENT JOB";A:MAX=MAX+30
1122 IFA>10THENTT=TT+30:GOTO1140
1124 IFA> 6THENTT=TT+20:GOTO1140
1126 IFA> 3THENTT=TT+10:GOTO1140
1128 IFA< 1THENTT=TT-10:GOTO1140
1140 PRINT:PRINT"YOU NOW HAVE "TT"PTS"
1150 PRINT:PRINT"ENTER 1[146] FOR NO BANK ACCOUNTS
1153 [153]"      2 FOR CHECKING
1156 PRINT"      3 FOR SAVINGS
1158 [153]"      4 FOR BOTH
1159 MAX=MAX+30
1160 INPUTA:IFA=1THENTT=TT-10
1162 IFA=2ORA=3THENTT=TT+10
1164 IFA=4THENTT=TT+30
1200 PRINT"[147]  HOW MANY BANK AND TRAVEL CARDS?":INPUTA
1202 MAX=MAX+30
1205 TT=TT+30:IFA<3THENTT=TT-50
1210 PRINT"  HOW MANY DEPARTMENT STORE CARDS?":INPUTA
1215 TT=TT+30:IFA<3THENTT=TT-50
1225 PRINT:PRINT"DO YOU HAVE A CURRENT BANK LOAN":INPUT"  YES[157][157][157][157][157]";A$
1226 REM IF A$<>"YES" OR A$<>"NO" THENPRINT"ENTER YES[146] OR NO[146]":GOTO1225
1227 MAX=MAX+15
1230 IFA$="YES"THENTT=TT+15
1235 PRINT:INPUT"A FINANCE CO. LOAN  YES[157][157][157][157][157]";A$
1236 REM IFA$<>"YES"ORA$<>"NO"THENPRINT"ENTER YES[146] OR NO[146]":GOTO1235
1240 IFA$="YES"THENTT=TT-30
1300 PRINT:PRINT"IF YOU OWN A CAR, HOW MANY YEARS OLD IS IT. ENTER 0[146] IF NO CAR"
1310 INPUTA
1315 MAX=MAX+10
1320 IFA>6THENTT=TT+10:GOTO1400
1322 IFA>3THENTT=TT+ 8:GOTO1400
1324 IFA<1THENTT=TT-10:GOTO1400
1400 PRINT:PRINT"ENTER FAMILY INCOME:"
1405 INPUTA
1408 MAX=MAX+40
1410 IFA<10000THENTT=TT-25:GOTO1500
1415 IFA<18000THENTT=TT+5:GOTO1500
1420 IFA<25000THENTT=TT+15:GOTO1500
1425 IFA<30000THENTT=TT+20:GOTO1500
1430 IFA<40000THENTT=TT+25:GOTO1500
1435 TT=TT+40
1500 PRINT:PRINT"THE CREDIT RATING BUREAU CAN INFLUENCE  THE DECISION TO GRANT A LINE ";
1505 PRINT"OF CREDIT. ENTER YOUR OWN EXPERIENCE"
1510 PRINT:PRINT"ENTER 1[146] FOR NO REPORT
1512 MAX[178]MAX[170]25
1515 [153]"      2 FOR ALL DEROGATORY
1520 PRINT"      3 FOR SATISFACTORY
1525 [153]"      4 FOR EXCELLENT
1530 INPUTA
1540 IFA=2THENTT=TT-50:
1545 IFA=3THENTT=TT+10
1548 IFA=3THENTT=TT+25
1600 PRINT"[147]   OUT OF A POSSIBLE "MA" POINTS"
1610 PRINT"   YOU SCORE          "TT" POINTS
2000 Z$[178]"IF YOU ARE A GOOD CREDIT RISK...":[141]21000
2005 Z$[178]"ESTIMATE YOUR OWN PERSONAL CREDIT LIMIT":[141]21000
2010 Z$[178]"USING BANK OF MONTREAL'S SUGGESTED FORM":[141]21000
2015 Z$[178]"THE FOLDER HAD NO COPYRIGHT NOTICE":[141]21000
2020 Z$[178]"SO WE ARE OFFERING THEIR METHOD HERE":[141]21000
2100 [153]"ENTER TOTAL MONTHLY INCOME:"
2105 [133]A:[153]"MAXIMUM CREDIT CAPACITY"A[172].35" PER MONTH
2110 PRINT:PRINT"TOTAL PAYMENTS (CAR,RENT,LOANS,ETC)":INPUTC
2115 PRINT"REMAINING CREDIT CAPACITY";:D=(A*.35)-C:PRINTD"PER MONTH
2120 [153]"PERSONAL CREDIT LINE LIMIT IS $"D[172]33.3
3000 [128]
8999 [144]
9000 [143] MENU
9001 :
9002 [153]"LOADF7=CONT.":[153]"F2= ":[153]"F3= INST."
9003 [153]"F4= ":[153]"F5= ":[153]"F6= "
9004 [153]"F8= "
9005 [153]"A= ":[153]"B=BEGIN PROG.":[153]"C= "
9008 [153]"D= ":[153]"E= ":[153]"F= "
9011 [153]"G= ":[153]"H= ":[153]"I= "
9014 [153]"J= ":[153]"K= ":[153]"L= "
9021 :
9029 :
9050 [161]A$
9051 [139]A$[178]"LET"[167][153]"LOAD":[142]
9060 [129]Z[178]1[164]8
9061 [139]A$[178][202]("INPUTGOTODIMRUNREADIF_RESTORE",Z,1)[167][145]Z[137]1,2,10000,4,5,6,7,8
9063 [139]A$[178][202]("ABCDEFGH",Z,1)[167][145]Z[137]1,1000,3,4,5,6,7,8
9066 [139]A$[178][202]("IJKLMNOP",Z,1)[167][145]Z[137]1,2,3,4,5,6,7,8
9069 [139]A$[178][202]("QRSTUVWX",Z,1)[167][145]Z[137]1,2,3,4,5,6,7,8
9075 [130]Z
9090 [137]9050
9990 [128]
10000 [143] TITLE
10001 SC[178]55296:[151]53281,1:
10010 [153]"LOADSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSIN
10015 PRINT"[147]           CREDIT ANALYSIS
10020 [153]"STOPDO YOU NEED INSTRUCTIONS SYS?WAITSTOP"
10030 [153]"  STOPYWAITES OR STOPNWAITO  "
10035 [161]O$:[139]O$[179][177]"Y"[175]O$[179][177]"N"[167]10035
10039 [139]O$[178]"N"[167][138]1000
10040 [151]SC, 1:[139]O$[178]"Y"[167][141]11450:[141]20000
10050 [153]"STOPDO YOU NEED INSTRUCTIONS SYS?WAITSTOP"
10055 [153]"  YWAITES OR NWAITO  "
10056 [161]O$:[139]O$[179][177]"Y"[175]O$[179][177]"N"[167]10035
10059 [139]O$[178]"N"[167][138]1000
11449 :
11450 [129]Q[178]1304[164]1983:[151]Q,32:[130]:[153]"":[142]
20000 :
20003 [153]" INSTRUCTIONS
20010 Z$="COMPUTERIZED ANALYSIS OF DEBTOR CREDIT  WORTHINESS" :GOSUB21000
20011 Z$=" HAS EXISTED SINCE THE50'S. THIS PROGRAM IS AN EXAMPLE OF" :GOSUB21000
20012 Z$="HOW BUSINESS USE THE INFORMATION" :GOSUB21000
20013 Z$="THAT YOU SUPPLE TO EVALUATE" :GOSUB21000
20015 Z$="YOUR APPLICATION FOR CREDIT.":GOSUB21000:GOSUB40000
20016 Z$="FIRMS VARY IN THEIR CRITERIA BUT YOU CAN":GOSUB21000
20017 Z$="FORM AN IMPRESSION OF HOW THINGS WORK":GOSUB21000
20018 Z$="BY ANSWERING THE QUESTIONS IN":GOSUB21000
20019 Z$="THIS PROGRAM AND BY STUDYING THE PROGRAM.":GOSUB21000
20022 Z$="JUST ANSWER THE QUESTIONS AND THE EVALUATION WILL APPEAR":GOSUB21000
20999 GOSUB40000:GOTO1000
21000 FORA=1TOLEN(Z$):IFMID$(Z$,A,1)=" "ORMID$(Z$,A,1)=""THEN21020
21010 POKES1,129:POKES2,68:S3=68
21020 PRINTMID$(Z$,A,1);:POKES1,0:POKES2,0:POKES3,0
21030 FORY=1TO10:NEXT:NEXT:FORA=1TO150:NEXT:PRINT:RETURN
29999 STOP
39999 END
40000 REM SUB TO CONTINUE
40055 PRINT"[144]CONTINUE  [158]Y[146]ES OR [158]N[146]O  "
40056 POKESC,31:GETO$:IFO$<>"Y"ANDO$<>"N"THEN40056
40059 IFO$="N"THEN1000
40060 GOSUB11450
40099 RETURN
45000 FORL=1TO2000:NEXT:RETURN
46000 IFA$<>"YES"ORA$<>"NO"THENPRINT"ENTER YES[146] OR NO[146]":RETURN
62999 END